﻿Public Class FeuerkrafttabelleHelis150
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 100
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 150
            Case MovementSorts.Transport.ToString.ToUpper
                Return 90
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 90
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 120
            Case MovementSorts.Mech.ToString.ToUpper
                Return 120
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 90
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 90
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 90
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 90
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 120
            Case Else
                Return 90
        End Select
    End Function
End Class
Public Class FeuerkrafttabelleHelis150UndInf140
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 100
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 150
            Case MovementSorts.Transport.ToString.ToUpper
                Return 90
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 90
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 140
            Case MovementSorts.Mech.ToString.ToUpper
                Return 140
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 90
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 90
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 90
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 90
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 140
            Case Else
                Return 90
        End Select
    End Function
End Class
Public Class FeuerkrafttabelleHelis180UndInf140
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 100
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 180
            Case MovementSorts.Transport.ToString.ToUpper
                Return 90
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 90
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 140
            Case MovementSorts.Mech.ToString.ToUpper
                Return 140
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 90
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 90
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 90
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 90
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 140
            Case Else
                Return 90
        End Select
    End Function
End Class
Public Class FeuerkrafttabelleHelis150UndInf110
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 100
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 150
            Case MovementSorts.Transport.ToString.ToUpper
                Return 90
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 90
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 110
            Case MovementSorts.Mech.ToString.ToUpper
                Return 110
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 90
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 90
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 90
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 90
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 110
            Case Else
                Return 90
        End Select
    End Function
End Class
Public Class FeuerkrafttabelleHelis180UndInf110
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 100
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 180
            Case MovementSorts.Transport.ToString.ToUpper
                Return 90
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 90
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 110
            Case MovementSorts.Mech.ToString.ToUpper
                Return 110
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 90
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 90
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 90
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 90
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 110
            Case Else
                Return 90
        End Select
    End Function
End Class